home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 47 / Tiger_Disk_047_1998-02_Tiger-Crew-Disk_de_Side_B.d64 / ... validate ... (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  47 lines
  1. 1 a=a+1
  2. 2 poke53280,.:poke53281,.:printchr$(147):poke53272,29
  3. 3 print"[179][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][180]";
  4. 4 print"[178]  [179][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][180]  [178]";
  5. 5 print"[181][180] [178] [193]us [204]ukian's [206]onsens-[215]erkstatt [178] [179][182]";
  6. 6 print"[178][181][180][181][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][182][179][182][178]";
  7. 7 print"[178] [178][179][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][180][178] [178]";
  8. 8 print"[178] [178][178]     [208]aralogische [208]rogramme     [178][178] [178]";
  9. 9 print"[181][177][182][181][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][182][181][177][182]";
  10. 10 print"[158][196]ies ist ein kleines [194]eispiel fuer sinn-";
  11. 11 print"loses  "chr$(34)"[214][197][210][218][201][197][210][197][206]"chr$(34)"  von [208]rogrammen durch";
  12. 12 print"   allerlei bedeutungslose [205][161]tzchen!   "
  13. 13 ifa=1thenload"[150]*",8,1
  14. 14 foraa=0to3000:next:poke53280,11:poke53281,. :printchr$(147):poke646,11
  15. 15 print"[145][179][177][177][177][177][177][180]"chr$(34)"[196] [197] [210]  [193] [213] [207] [210] [162] [213] [205] [197] [210]"chr$(34)"[179][177][177][177][177][177][180]";
  16. 16 print"[181][177][177][177][177][177][182][179][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][180][181][177][177][177][177][177][182]";
  17. 17 print"       [178] [211]chlie[174]t offene [198]iles! [178]       ";
  18. 18 print"[179][177][177][177][177][177][180][181][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][182][179][177][177][177][177][177][180]";
  19. 19 print"[181][177][177][177][177][177][182][181][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][182][181][177][177][177][177][177][182]";
  20. 20 print"[146][155]"
  21. 21 print"   -[218]u bearbeitende [196]isk einlegen und   ";"              [183][184]  dr[165]cken!"
  22. 22 geta$
  23. 23 ifa$<chr$(133)ora$>chr$(133)then22
  24. 24 ifa$=chr$(133)then25
  25. 25 print"[147][158] je mehr [198]iles auf der [196]isk sind, um so"
  26. 26 print"        l[161]nger mu[174] ich arbeiten.":forz=1to1000:next
  27. 27 forc=0to15:poke646,c :print"";
  28. 28 print"[147][221]    ich         [219]                      ";
  29. 29 print"                arbeite        [219]        ";
  30. 30 print"                              jetzt    _";:next
  31. 31 open1,8,15,"v":close1:
  32. 32 poke54296,6:poke54278,240:poke54272,17:ford=1to65:poke54273,1+abs(32+d)
  33. 33 poke54276,d :next::                 forc=2to14:poke646,c:print"[147]";
  34. 34 print"[146][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178]  [198][197][210][212][201][199][146]  [178][177][178][177][178][177][178][177][178][177][178][177][178][177][178]";:next:poke54296,0
  35. 35 fort=1to1500:next:poke53280,6:poke53281,6:poke646,3
  36. 36 print"[147][221][196]u h[161]ttest [176][207][198][198][197][206][197] [198][201][204][197][211][176] auch ohne ein";"solches [208]rogramm 'schlie[174]en"
  37. 37 printtab(28)"[145]k[163]nnen mit:          [207][208][197][206]1,8,15,"chr$(34)"[214]"chr$(34)":[195][204][207][211][197]
  38. 38 [153]"open >  str$ieser peekefehl steht in (NULL)eile 31!  < wait";
  39. 39 [153]" str$as 'str$rumherum' ist vtab(llig nutzlos ffnr ";
  40. 40 [153]"      die atnusffnhrung des peekefehles!":[153][163]192)"print# (NULL)ukian"
  41. 41 [129]t[178]1[164]4500:[130]:[153]""
  42. 42 [151]646,14:
  43. 100 [151]808,225:[151]53270,6:[129]c[178]13[164]16[169].1   :[151]53280,c:[151]53281,c:[130]
  44. 101 [153][199](147)"      **** commodore basic v2 ****      ";
  45. 102 [153]:[153]"onononononononononononon 64k ram system  38911 basic bytes free"
  46. 103 [129] z[178]1[164]2000:[130]:[158]58253
  47.